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AN EXAMPLE - 64 COLUMN MODE SUPPORT 


BASIC Cope FILe 


START = 5/344 
LENGTH = 902 
EXAMPLE: 


10 REM Set up 6 coLUMN MODE 

20 POKE 57377,6:RANDOMIZE USR 57378 

30 REM CLEAR SCREEN 

40 RANDOMIZE USR 57355 

50 REM PosiTION CURSOR TO LINE 12, coLumn 20 

60 POKE 57348,20: POKE 57349,12: RANDOMIZE USR 57350 

70 REM PRINT MESSAGE 

- 80 LET A$ - "64 CoLumn move” 

90 FOR L = 1 To 14; LET A = AS(L): POKE 57344,A; RANDOMIZE USR 57345 
100 NEXT L 


TIMEX COMPUTER CORPORATION 


Application Software Component 


Date: 117217383 
Version: O01 
ASC Number: O01 


Author: Carol Corcoran 


Name: 64 Column Mode Support 


Description: This component provides support to the application 
programmer for-using the §4-column mode feature of the TS 2068. 
The services include opening/clesing the second display file 
Cmoving the machine stacks; CS RAM routines and BASIC structures), 
PRINT position control, attribute control; clear screen and 
scroll screen services and display of ‘characters. For ease of 
use from BASIC, status is returned in the 8C resister pair, 
usually zero for successful completion and designated non-zero 
velues for other conditions. The interface from BASIC is by 
means of storing the irput parameters in designated RAM locaticns 
prior to invoking the service via the USR function. 


ee me ee em we ee we ee ee we ee oe we we we ee we we me me wee me we we we we we ee ee eae a a ae se ee 


ASC Number: 001 
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Application Services 


Name: SETMODE CSETMDOES from 3ASIC - parameter to VIMODE) 


Input: MODE (CO=normal 5 6=64 column mode) 


From machine cede: Register A 
From BASIC: In VIMODE 


Description: © 


Sets specified video modes opening or closing the second display 
file where needed. This involves determining if there is enough 
free RAM to open the second display file and if soy moving the 
BASIC structures and machine languace variables ares up and the 
UOG area down to make space for the machine stack and OS RAM 
routines at the top of memory. The second display file is 
cleared to zerces. The affected system variables are updated. 
When returning to Mode 0 from 64 Column modes the structures sre 
returned to their normal locations. 


Dutput? BC 
BC 
BC 


6 Successful 
1. Invalid parameters Cnot equal to 0 or 6) 
2 Not enough memory 


Namet CLRSCN CCLRSCB from BASIC - parameters to CLSCTL)D 


Input: Line Count (1-24) 
Starting Line Number (€0-23) 


“From Machine Code: Line Count In Register 8 
Starting Line In Register C 


From BASIC: Starting Line Number in CLSCTL 
Line Count in CLSCTL + 1 


Description: 


Cleers to background color CPAPER) the designated number of 
liness beginning with the Starting Line Number. Line 0 with a 
count of 24 clears the entire screen. Upon returns the cursor 
position is at the beginning of the first line cleared. 


Output: BC 
BC 


0 for successful completion 
l invalid paremeters 
Cline Number + Line Count > 24) 
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Name: SETCUR CSETCUB from BASIC - parameters to LINCOL)D 


Input: Line Number (€0-23) 
Column Number (0-63) 


From Machine Code: Line Number In Recsister 8 
Column Number In Register C 


From BASIC: Column Number In LINCGL 
Line Number In LINCOL + 1 


Description: 


Converts the requested position to internal format, determines 
display file address, and stores the values for use by the next 
display character operation. Note that once established, the 
position is updated automatically when a character is displayed 
so that it is only necessary to set the position when sequential 
display is not desired. 


Output: . BC 
ac 


0 for successful-completion 
1-for invalid parameters CLine iunkes 2 23° 5 
Column Number > 63) 


Name: SETATT CSETATS from BASIC parameter to ATTCTL) 


Input: Attribute Eyte - bit 7 - FLASH 
; bit 6 - BRIGHT 
bit 5 = P - 
bit 4¢<- A 
bit 3 - PER 
bit 2- 1 
bit 1 - N 
bit 0 - K 


From Machine Code: Register A 
From BASIC? In ATTCTL 


Description: 


The specified INK color (C0-7) is used to set the video mode 
hardwaree The complementary PAPER color is fixed by the INK. 
selection. FLASH and ERIGHT are fixed at zero by the hardware. 
Note that in 64 column mode the entire screen has the same 
attributes. : 


Dutgut: BC = 0 Successful 


Name: SETMSK CSETMSB from BASIC - paramters to MSKCTL)D 
Input: Mask Byte - bit 0 = CVER 

bit 2 - INVERSE 
From Machine Code: Register A 


From BASIC: MSKCTL 


Description? 

The specified mask is stored for application to all subsequent 
display character operations. (COVER = 1 implies new character 
-combined with old; INVERSE = 1 implies character is inverted). 


Qutput: BC = 0 for successful completion | 


Namet WRCHR CWRCHB from SASIC - parameter to DATAB) 


Input: Character code for character to be displayed 
From Machine Code; Recister A 


From BASIC: in DATAB 


Description: 


Displays character at current cursor position, applying current 
maske Moves cursor position on to next sequential position. If 
character would start a new line after the bottom line on the 
screen and the scroll count Cvariable SCRLCT) decrements to Zero, 
the character will not be displeyed and return will be made with 
8C = 3 C€sereen full>. If the scroll count does not decrement to 
zeros the screen will be scrolled up one line and the new line 
started at the bottom of the screen. 


Dutput: "BC 
BC 


0 for successful completion 
3 for screen. full 
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Name: SCROLL CSCRLS from BASIC = Pérameters to SCRCTLY 


~ 


Input: Line Count €1=-23) 
Starting Line Number (1-23) 


From Machine Code: Line Count In 8 
Starting Line In € 

From BASIC: Starting Number In SCRCTL 

Line Number In SCRCTL + 1 


Description: 


Scrolls the designated number of lines up 1 position, Starting at 
the specified line number and inserts a blank line st the bottom 
of the scrolled ereaée Line 1 with » count of 23 wil} Scroll the 
entire screen Yp 1 line. Upon returns the cursor Position is at 
the beginning of the inserted blank line. 


Note: Sea section on “automatic’ Scrolling, 
0 Successful 


1 Invalid Parameters 
CLine Number + Line Count > 24>) 


Dutput: ac 
BC 


Name: GTCHAR (GETATB from BASIC - parameters to GETCTL) 


Input: Line/Column position as for SETCUR 


From Machine Codet Line Number in 8 
Column Number in C 


From SASIC! Column Number in GETCTL 
Line Number in GETCTL + 1 


Description: 


Returns in register C of the 8C register pair the character code 
for the character at the designated screen position. If no match 
“against the character set table is found, returns zero Ccharacter 
code also in A). 


CNote: Positions “’printed’ using the OVER technique will return 
zero since they will not match against any single character in 
the table. 


0 for no find 
1 invalid parameters 
character code 


Output: BC 
BC 
BC 
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Name: ‘GETATT CGETATB& from BASIC ~ parameters to GETCTL) 
Input: As for GTCHAR 


Description: 


Returns in register C of the £C register pair the attribute byte 
for the charecter st the designated screen position. Note that 
in 64 column mode the entire screen has common attributes. The 
Value returned will describe the current selection: 


1 for invalid parameters 


Dutput: ec 
BC attribute byte Cas for SETATT) 


Name: GETCUR CGETCUS from BASIC) 
Input: None 


. Description: 


Returns in the 8C register pair and “in the BASIC parameter 
location LINCOL, the current print position Cwhere the next 
Character would be displayed). 


Cutput: 8 = Line number (0-23) 
C =.Column number (0-43) 


BASIC: LINCOL <-° Column number- 
LINCOL + 1 - Line number 
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Usaces 


Memory Usage: 


This package of machine code routines includes the followin 


internal 


Name 
cuRPOs 
DF_ADOR 
LIN_LLEN 
CHUTBL 
MASK_S5 


ATTEYT 


SCRLCT 


BOTLLN 


SCRCTL 


Size 


we 


Z 


2. 


he 


variables: 


Description 


CURPCS - Column Position 


CURPCS + 1 
DFLACOR - 
DF_LADCR + 1 
Line Length 


Line Position 


LS& Display File Address 


- MSE Display File Addrass 
(64 when in 64 column mode)d 


CHLTEL - LSB of character table adaress 


CHLTBL + 1 


Caddress = base = 108h) 
MSE of cheracter table address 


Mask Byte Cbit OG = OVER) 
Cbit 2 = INVERSE) 
Attribute Byte Cbits 0 - 2 -- INK) 


Scroll Count 


Bottom Line 


Cbits 3 - 5 = PAPER) 
Cbit 6. - BRIGHT Set to zero by? 
Cbit 7 - FLASH hardware in 64° 


column mode) 

- Number of times + 1 that automatic 
scroll will be donee When decremente: 
to zeros data will not be displayed ar 
‘condition code wili be returned to us: 

- Line number (0-23) after which test for 
scroll will be made. 


Scroll Control - LS8 = Starting line number 


Number of lines to be scrolle: 


Initial values are as follows: 


Variable Name Value 
CURPGS 1841H 
DF_ADOR 4000H 
LIN LEN 40H 
CHLUTSL 3CO00K 
MASK_B OH 
ATTBYT 38H 
SCRLCT 1H 
BOT_LN 17H 
SCRCTL 1701H 


The following are the variables used for passing parameters in 
BASIC: 


Variable Name Size Value 
DATAS 1 20H 
LINCOL 2 OH 
CLRCTL Z 1806H 
VIMODE 1 OH 
ATTCTL i 38H 
MSKCTL Bi OH 
GETCTL 7 OH 


In edditions VIDMOD and other system variables must be available 
to these routines. At minimum, chunks U-3 and chunk 7 must be 
enabled in the Home 2ank. : . 


Locetion: 


This package can be incorporated into a machine code program from 
within the memory range from chunks 4 through 75 taking into 
consideration the remapping of certain structures when the second 
display file is open. 


Note: Machine code abeve RAMTOP is not moved. 


Automatic Scrolling: 


As initialized, test for scrolling will be made when the print 
position goes to the next line following the bottom line on 7 
screen CBOT_LN = 23 = 24th line). Condition Code 3 (Screen Full) 
will be returned since SCRLCT will decrement to zero. IF SCRLCT 
is set to some larger values then the parameters in SCRLCT will 
be used to automatically scroll the designated number of lines 
beginning at the specified line number. As initialized, this 
will stroll tne entire screen up. By performing a POKE or 
setting the variables to the desired values, scroll can be 
limited to smaller sections of the screen. Note that once SCRLCT 
expires, it will be set to 1. If a different value is desired, 
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it must be reinitialized by the user after receiving the "Screen 
Full’ condition. 


